;Start of program
	XPROG
		;BLOCK
	XMVAR
		;
	22
		;
	24
		;$B1.K
	26
		;$B1.THERE
	30
		;$B1.TRIES
	32
		;$B1.LAND
	34
		;$B1.TYPE
	36
		;$B1.R
	40
		;$B1.HOLE
	42
	0
	XMAKEVT
		;$B1.AL
	44
		;$B1.SAIL
	46
	0
		;Assignment
	XPUSH
	L1
	XCHNGE
		;$B1.R
	40
		;Assignment
		;first argument
	XGTVAL
		;$B1.R
	40
		;second argument
	XPUSH
	L2
	XTMAKE
	XCHNGE
		;$B1.HOLE
	42
		;Print
	XPRINT
	L3
		;Move
	XMOVE
	L4
	4
		;Assignment
	XPUSH
	L5
	XCHNGE
		;$B1.TYPE
	36
		;Event operation
	XSIGNAL
		;$B1.SAIL
	46
		;Event operation
	XWAITE
		;$B1.AL
	44
		;Print
	XPRINT
	L6
		;Print
	XGTVAL
		;$B1.TRIES
	32
	XVALPRN
		;Assignment
	XPUSH
	L7
	XCHNGE
		;$B1.THERE
	30
		;Assignment
	XPUSH
	L10
	XCHNGE
		;$B1.K
	26
		;BLOCK
	XMVAR
		;
	50
		;
	52
	0
		;Form force variable
	XPUSH
	L11
	XPUSH
	L12
	XMAKFORCE
	54
	4
	XJUMP
	L13
		;Condition monitor checker
L14:	XCMSKED
	144
		;first argument
	XGETFORCE
	54
		;second argument
	XPUSH
	L15
	XSSUB
	XJUMPC
	3
	L14
	XCMTRIG
		;BLOCK
		;Stop
	XSTOP
	4
		;Print
	XPRINT
	L16
		;Assignment
	XPUSH
	L17
	XCHNGE
		;$B1.TYPE
	36
		;Event operation
	XSIGNAL
		;$B1.SAIL
	46
		;Event operation
	XWAITE
		;$B1.AL
	44
		;Assignment
		;first argument
	XGTVAL
		;$B1.K
	26
		;second argument
	XPUSH
	L20
	XSADD
	XCHNGE
		;$B1.K
	26
		;WHILE Loop
L21:		;first argument
	XGTVAL
		;$B1.K
	26
		;second argument
	XGTVAL
		;$B1.TRIES
	32
	XSSUB
	XJUMPC
	7
	L22
		;BLOCK
		;IF
		;first argument
	XGTVAL
		;$B1.THERE
	30
		;second argument
	XPUSH
	L25
	XSSUB
	XJUMPC
	5
	L23
		;THEN
		;BLOCK
		;Assignment
		;first argument
	XGTVAL
		;$B1.K
	26
		;second argument
	XPUSH
	L26
	XSADD
	XCHNGE
		;$B1.K
	26
		;Assignment
	XPUSH
	L27
	XCHNGE
		;$B1.LAND
	34
		;BLOCK
	XMVAR
		;
	56
		;
	60
	0
		;Form force variable
	XPUSH
	L30
	XPUSH
	L31
	XMAKFORCE
	62
	4
	XJUMP
	L32
		;Condition monitor checker
L33:	XCMSKED
	144
		;first argument
	XGETFORCE
	62
		;second argument
	XPUSH
	L34
	XSSUB
	XJUMPC
	3
	L33
	XCMTRIG
		;BLOCK
		;Stop
	XSTOP
	4
		;Print
	XPRINT
	L35
		;Assignment
	XPUSH
	L36
	XCHNGE
		;$B1.LAND
	34
		;Assignment
	XPUSH
	L37
	XCHNGE
		;$B1.TYPE
	36
		;Event operation
	XSIGNAL
		;$B1.SAIL
	46
		;Event operation
	XWAITE
		;$B1.AL
	44
		;Block end cleanup
		;End of BLOCK
	XJUMP
	L33
		;Create condition monitor
L32:	XCMMAK
	64
	0
	L33
		;Enable condition monitor
	XCMENBL
	64
		;Move
		;first argument
	XGTVAL
		;$B1.HOLE
	42
		;second argument
	XPUSH
	L40
	XTVADD
	XCHNGE
		;
	56
		;first argument
	XGTVAL
		;$B1.HOLE
	42
		;second argument
	XPUSH
	L41
	XTVADD
	XCHNGE
		;
	60
	XMOVE
	L42
	4
		;Block end cleanup
	XCMDEST
	64
	0
	XDESFORCE
	62
	XKVAR
		;
	56
		;
	60
	0
		;End of BLOCK
		;IF
		;first argument
	XGTVAL
		;$B1.LAND
	34
		;second argument
	XPUSH
	L47
	XSSUB
	XJUMPC
	5
	L45
		;THEN
		;Assignment
	XPUSH
	L50
	XCHNGE
		;$B1.THERE
	30
	XJUMP
	L46
L45:		;ELSE
		;Assignment
	XPUSH
	L51
	XCHNGE
		;$B1.THERE
	30
L46:		;FI
		;Block end cleanup
		;End of BLOCK
	XJUMP
	L24
L23:		;ELSE
L24:		;FI
		;Block end cleanup
		;End of BLOCK
	XJUMP
	L21
L22:		;END WHILE
		;Block end cleanup
		;End of BLOCK
	XJUMP
	L14
		;Create condition monitor
L13:	XCMMAK
	56
	0
	L14
		;Enable condition monitor
	XCMENBL
	56
		;Move
		;first argument
	XGTVAL
		;$B1.HOLE
	42
		;second argument
	XPUSH
	L52
	XTVADD
	XCHNGE
		;
	50
		;first argument
	XGTVAL
		;$B1.HOLE
	42
		;second argument
	XPUSH
	L53
	XTVADD
	XCHNGE
		;
	52
	XMOVE
	L54
	4
		;Block end cleanup
	XCMDEST
	56
	0
	XDESFORCE
	54
	XKVAR
		;
	50
		;
	52
	0
		;End of BLOCK
		;IF
		;first argument
	XGTVAL
		;$B1.THERE
	30
		;second argument
	XPUSH
	L61
	XSSUB
	XJUMPC
	5
	L57
		;THEN
		;BLOCK
		;Print
	XPRINT
	L62
		;Assignment
	XPUSH
	L63
	XCHNGE
		;$B1.TYPE
	36
		;Event operation
	XSIGNAL
		;$B1.SAIL
	46
		;Event operation
	XWAITE
		;$B1.AL
	44
		;Block end cleanup
		;End of BLOCK
	XJUMP
	L60
L57:		;ELSE
L60:		;FI
		;Print
	XPRINT
	L64
		;Assignment
	XPUSH
	L65
	XCHNGE
		;$B1.TYPE
	36
		;Event operation
	XSIGNAL
		;$B1.SAIL
	46
		;Event operation
	XWAITE
		;$B1.AL
	44
		;Move
	XMOVE
	L66
	4
		;Block end cleanup
	XKVAR
		;
	22
		;
	24
		;$B1.K
	26
		;$B1.THERE
	30
		;$B1.TRIES
	32
		;$B1.LAND
	34
		;$B1.TYPE
	36
		;$B1.R
	40
		;$B1.HOLE
	42
	0
	XDESEVT
		;$B1.AL
	44
		;$B1.SAIL
	46
	0
		;End of BLOCK
	XENDP
		;End of program